object DMAkcje: TDMAkcje
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 270
  Width = 387
  object ADQAkcje: TADQuery
    SQL.Strings = (
      'select D.*, '#39'nowa'#39' as stan, '#39'1'#39' as sort'
      'from AkcjeView D'
      'where D.inKRS = :krs'
      '  and D.pub_dodany = :pub'
      '  and D.data_dodany = :data'
      'union all'
      'select D.*, '#39'skasowana'#39' as stan, '#39'2'#39' as sort'
      'from AkcjeView D'
      'where D.inKRS = :krs'
      '  and D.pub_skasowany = :pub'
      '  and D.data_skasowany = :data'
      'union all'
      'select D.*, '#39'jest'#39' as stan, '#39'3'#39' as sort'
      'from AkcjeView D'
      'where D.inKRS = :krs'
      
        '  and (D.data_dodany < :data or (D.data_dodany = :data and D.pub' +
        '_dodany < :pub))'
      
        '  and ((D.data_skasowany > :data or (D.data_skasowany = :data an' +
        'd D.pub_skasowany > :pub)) '
      #9'   or '
      '      (D.pub_skasowany is null and D.data_skasowany is null)) '
      'order by sort, D.chNazwaSerii')
    Left = 24
    Top = 8
    ParamData = <
      item
        Name = 'KRS'
        ParamType = ptInput
      end
      item
        Name = 'PUB'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'KRS'
        ParamType = ptInput
      end
      item
        Name = 'PUB'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'KRS'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'PUB'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'DATA'
        ParamType = ptInput
      end
      item
        Name = 'PUB'
        ParamType = ptInput
      end>
  end
  object ADQDodajAkcje: TADQuery
    Left = 112
    Top = 8
  end
  object ADQUsunAkcje: TADQuery
    Left = 112
    Top = 64
  end
  object ADQZapiszAkcje: TADQuery
    Left = 112
    Top = 120
  end
end
